Código fuente de 'Url actual.asp'
<html>
<head>
<title>Url actual - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Url actual</font></b></p>
<body style="font-family: Arial; font-size: 9pt">
<%@language="VBScript"%>
<%
Dim strDomain, strPath, strQueryString, strURL
' find out the domain:
strDomain = Request.ServerVariables("HTTP_HOST")
' find out the path to the current file:
strPath = Request.ServerVariables("URL")
' find out the QueryString:
strQueryString = Request.ServerVariables("QUERY_STRING")
' put it all together:
if strQueryString<>"" then
strURL = "http://" & strDomain & strPath & "?" & strQueryString
else
strURL = "http://" & strDomain & strPath
end if
Response.Write "La Url actual es: <b>" & strURL & "</b>"
%>
</body>
</html>